1 PRINT"[147]":POKE53280,4:POKE53281,7:PRINT"[144]":PRINT"----------------------------------------":PRINT"----------------------------------------":PRINT" LIONTOPS PROUDLY PRESENTS:":PRINT"----------------------------------------":PRINT"----------------------------------------":PRINT
2 PRINT" *** *** ***   *** *** ***":PRINT"  *  * * * *    *  *   * *":PRINT"  *  * * ***    *  **  * *":PRINT"  *  * * *      *  *   * *":PRINT"  *  *** *      *  *** * *":PRINT:PRINT" WRITTEN BY PETER 'LEO' BOHLMANN":PRINT:PRINT" SCHWIERIGKEITSGRAD (1-3) ?":PRINT:INPUT"";YY$:IFYY$="1"THEN6
3 IFYY$="2"THEN7
4 IFYY$="3"THEN8
5 GOTO1
6 G=18000:GOTO9
7 G=13000:GOTO9
8 G=10000:GOTO9
9 GETAA$:IFAA$=""THEN9
10 IFAA$=CHR$(32)THEN11
11 PRINT"[147]":PRINT:PRINT" NENN' MIR DEINEN NAMEN, BABE !":PRINT:INPUT"";N$:Z=INT(3*RND(1))+1:IFZ=1THENGOTO15
12 IFZ=2THENGOTO16
13 IFZ=3THENGOTO17
14 GOTO1
15 PRINT:PRINT" ...KICHER...":P=P-10:GOTO18
16 PRINT:PRINT" COOOOOOOOL !!!":P=P+10:GOTO18
17 PRINT:PRINT" ...NA JA...":GOTO18
18 PRINT:PRINT:PRINT" <SPACE>"
19 GETAA$:IFAA$=""THEN19
20 IFAA$=CHR$(32)THEN21
21 PRINT"[147]":PRINT:PRINT" WELCHE MUSIK WILLST DU MACHEN ?":PRINT:PRINT" DANCE-FLOOR,POP,RAP,DEUTSCHE ROCKMUSIK,":PRINT" FUN-PUNK":PRINT:PRINT:INPUT"";M$:IFM$="DANCE-FLOOR"THEN27
22 IFM$="POP"THEN28
23 IFM$="RAP"THEN29
24 IFM$="DEUTSCHE ROCKMUSIK"THEN30
25 IFM$="FUN-PUNK"THEN31
26 GOTO21
27 P=P+50:GOTO32
28 P=P+30:GOTO32
29 P=P+40:GOTO32
30 P=P+20:GOTO32
31 P=P+10:GOTO32
32 PRINT"[147]":PRINT:PRINT" WIE SOLL DEINE SINGLE HEISSEN ?":PRINT:INPUT"";S$:AA=INT(3*RND(1))+1:IFAA=1THEN35
33 IFAA=2THEN36
34 IFAA=3THEN37
35 PRINT:PRINT" PRUST,GLUCKS,PFFLRFFF !!!":P=P-20:GOTO38
36 PRINT:PRINT" O.K.":GOTO38
37 PRINT:PRINT" YEAHH !!!":P=P+20:GOTO38
38 PRINT:PRINT:PRINT" <SPACE>"
39 GETAA$:IFAA$=""THEN39
40 IFAA$=CHR$(32)THEN41
41 PRINT"[147]":PRINT:PRINT" DER SONG MUSS VERTONT WERDEN ! DU HAST":PRINT:PRINT" GENAU"G"DM.SUCH DIR EIN STUDIO AUS":PRINT:PRINT:PRINT" GLAMOUR HOUSE = 10000 DM.":PRINT:PRINT" CHAOS RECORDS = 7500 DM.":PRINT:PRINT" YUPPIE VYNYL = 5000 DM.":PRINT:PRINT" LAERM TON = 2500 DM.":PRINT:PRINT" WUMM = 1000 DM.":PRINT:INPUT"";SN$
42 IFSN$="GLAMOUR HOUSE"THEN48
43 IFSN$="CHAOS RECORDS"THEN49
44 IFSN$="YUPPIE VYNYL"THEN50
45 IFSN$="LAERM TON"THEN51
46 IFSN$="WUMM"THEN52
47 GOTO41
48 G=G-10000:P=P+40:GOTO53
49 G=G-7500:P=P+30:GOTO53
50 G=G-5000:P=P+15:GOTO53
51 G=G-2500:GOTO53
52 G=G-1000:P=P-20:GOTO53
53 PRINT"[147]":PRINT:PRINT" NATUERLICH IST AUCH DEIN IMAGE SEHR":PRINT:PRINT" WICHTIG.WIE WILLST DU DICH PRAESEN-":PRINT:PRINT" TIEREN ("G"DM.) ?":PRINT:PRINT" ALS...":PRINT:PRINT" TYP VON NEBENAN (KOSTEN:1000 DM)":PRINT:PRINT" LOVER BOY (KOSTEN:3000 DM)":PRINT:PRINT" HARTER TYP (KOSTEN:1500 DM)"
54 PRINT:PRINT" GEHEIMNISVOLLER TYP (K.:2000 DM)":PRINT:INPUT"";I$:IFI$="TYP VON NEBENAN"THEN59
55 IFI$="LOVER BOY"THEN60
56 IFI$="HARTER TYP"THEN61
57 IFI$="GEHEIMNISVOLLER TYP"THEN62
58 GOTO53
59 G=G-1000:P=P+20:GOTO63
60 G=G-3000:P=P+40:GOTO63
61 G=G-1500:P=P+10:GOTO63
62 G=G-2000:P=P+30:GOTO63
63 PRINT"[147]":PRINT:PRINT" DEINE SINGLE MUSS NATUERLICH AUCH":PRINT:PRINT" VERTRIEBEN WERDEN.SUCH DIR EINEVER-":PRINT:PRINT" TRIEBSFIRMA AUS (DU HAST"G"DM.).":PRINT:PRINT" VERTRIEB TOLL = 5000 DM":PRINT:PRINT" VERTRIEB COOL = 2500 DM":PRINT:PRINT" VERTRIEB YEAH = 1000 DM":PRINT:INPUT"";V$
64 IFV$="VERTRIEB TOLL"THEN68
65 IFV$="VERTRIEB COOL"THEN69
66 IFV$="VERTRIEB YEAH"THEN70
67 GOTO63
68 G=G-5000:P=P+30:GOTO71
69 G=G-2500:P=P+20:GOTO71
70 G=G-1000:P=P+10:GOTO71
71 PRINT:PRINT" <SPACE>"
72 GETAA$:IFAA$=""THEN72
73 IFAA$=CHR$(32)THEN74
74 PRINT"[147]":PRINT:PRINT" NATUERLICH IST AUCH DIE PRESSE SEHR":PRINT:PRINT" WICHTIG ! VIELLEICHT SOLLTE MAN SIE":PRINT:PRINT" BESTECHEN...(DU HAST"G"DM.).":PRINT:INPUT" JA ODER NEIN";AA$:IFAA$="NEIN"THEN85
75 IFAA$="JA"THEN77
76 GOTO74
77 PRINT:PRINT" WIEVIEL WILLST DU DEM ZUSTAENDIGEN":PRINT:PRINT" REPORTER ZUKOMMEN LASSEN ???":PRINT:INPUT"";XX:IFXX>4000THEN81
78 IFXX<4000THEN82
79 IFXX<2500THEN83
80 IFXX<1000THEN84
81 P=P+50:GOTO85
82 P=P+35:GOTO85
83 P=P+20:GOTO85
84 P=P+10:GOTO85
85 PRINT"[147]":IFG<-1000THEN87
86 GOTO88
87 PRINT:PRINT" TJA, DU HAST DICH LEIDER FINANZIELL":PRINT:PRINT" UEBERNOMMEN UND BIST PLEITE...":PRINT:PRINT:" ...VERSUCH'S HALT NOCH MAL !":END
88 PRINT:PRINT" DANN WOLLEN WIR DOCH MAL SEHEN,WAS":PRINT:PRINT" DIE 'BRAVO' SCHREIBT...":PRINT:PRINT:PRINT:PRINT" <SPACE>"
89 GETAA$:IFAA$=""THEN89
90 IFAA$=CHR$(32)THEN91
91 PRINT"[147]":POKE53280,1:POKE53280,1:IFP>160THEN97
92 IFP>80THEN96
93 PRINT:PRINT" NA JA... "N$" HAUT MICH MIT":PRINT:PRINT" SEINER DEBUT-SINGLE "S$"":PRINT:PRINT" NICHT GERADE VOM HOCKER.AUCH SEIN":PRINT:PRINT" IMAGE ALS "I$" IST NICHT":PRINT:PRINT" GERADE NEU...SCHADE !":PRINT:PRINT" *"
94 GETAA$:IFAA$=""THEN94
95 IFAA$=CHR$(32)THEN98
96 PRINT:PRINT" DER MUSIKER HEISST "N$",":PRINT:PRINT" UND SEINE SINGLE "S$" .":PRINT:PRINT" GEBOTEN WIRD: "M$" ...":PRINT:PRINT" ECHT NICHT SCHLECHT,ABER AUCH NICHT":PRINT:PRINT" SPITZE...ACHTUNG:"I$" !":PRINT:PRINT" **":GOTO94
97 PRINT:PRINT" SPITZE,DIESER "N$" !":PRINT:PRINT" ECHT SUPERGEILE,HEISSE MUCKE !!!":PRINT:PRINT" "M$" AT IT'S BEST !":PRINT:PRINT" DIE SCHEIBE: "S$".":PRINT:PRINT" ER IST EIN "I$" !":PRINT:PRINT" KAUFEN !!!!!!!!!!!!!":PRINT:PRINT" ***":GOTO94
98 PRINT"[147]":PRINT:PRINT" SO, NACH DER PRESSE KOMMT DAS WICH-":PRINT:PRINT" TIGSTE - DIE CHARTS !!!":PRINT:PRINT" UM ZU SEHEN, WIE DU ANKOMMST,DRUECKE":PRINT:PRINT" <SPACE> !!!"
99 GETAA$:IFAA$=""THEN99
100 IFAA$=CHR$(32)THEN101
101 PRINT"[147]":POKE53280,5:POKE53281,3:PRINT:PRINT" ERSTE WOCHE:":IFP>200THEN105
102 IFP>170THEN105
103 IFP>120THEN105
104 IFP<120THEN106
105 CH=INT(100*RND(1))+1:GOTO107
106 PRINT:PRINT" DU BIST NICHT IN DEN CHARTS...":GOTO108
107 PRINT:PRINT" DU HAST ES AUF ANHIEB AUF PLATZ "CH" ":PRINT:PRINT" DER CHARTS GESCHAFFT !":GOTO109
108 PRINT:PRINT" EINMAL DRAUSSEN,NIE MEHR REIN...":PRINT:PRINT" VERSUCH'S EINFACH NOCH MAL !":END
109 GETAA$:IFAA$=""THEN109
110 IFAA$=CHR$(32)THEN111
111 PRINT"[147]":PRINT:PRINT" ZWEITE WOCHE:":IFP>150THEN113
112 GOTO106
113 CH=INT(60*RND(1))+1:PRINT:PRINT" DU BELEGST PLATZ "CH" DER CHARTS..."
114 GETAA$:IFAA$=""THEN114
115 IFAA$=CHR$(32)THEN116
116 PRINT"[147]":PRINT:PRINT" DRITTE WOCHE:":IFP>170THEN118
117 GOTO106
118 CH=INT(30*RND(1))+1:PRINT:PRINT" PLATZ "CH" DER CHARTS IST DEIN !"
119 GETAA$:IFAA$=""THEN119
120 IFAA$=CHR$(32)THEN121
121 PRINT"[147]":PRINT:PRINT" VIERTE WOCHE:":IFP>185THEN123
122 GOTO106
123 CH=INT(15*RND(1))+1:IFCH>12THEN106
124 PRINT:PRINT" DU BIST AUF RANG "CH" DER CHARTS !"
125 GETAA$:IFAA$=""THEN125
126 IFAA$=CHR$(32)THEN127
127 PRINT"[147]"
128 POKE53280,8:POKE53281,3:POKE53280,4:POKE53281,7:POKE53280,3:POKE53281,5:PRINT" DU HAST ES GESCHAFFT !!!!!!!!!":PRINT" DU BIST DER ABSOLUTE CHARTBREAKER !":PRINT:PRINT:PRINT" CHARTBREAKER !!!!!":PRINT:PRINT" CHARTBREAKER !!!!!":GOTO128